Imports Microsoft.VisualBasic

<Serializable()> _
Public Class User

    Private uID As Integer
    Private uName As String
    Private uPassword As String
    Private uEmail As String
    'Private uSetup As BaseSetup


    Sub New(ByVal _uID As Integer, ByVal _uName As String, ByVal _uPassword As String, ByVal _uEmail As String)
        uID = _uID
        uName = _uName
        uPassword = _uPassword
        uEmail = _uEmail
        'uSetup = _uSetup

    End Sub

    Public Property ID() As Integer
        Get
            Return uID
        End Get
        Set(ByVal value As Integer)
            uID = value
        End Set
    End Property


    Public Property UserName() As String
        Get
            Return uName
        End Get
        Set(ByVal value As String)
            uName = value
        End Set
    End Property

    Public Property UserPassword() As String
        Get
            Return uPassword
        End Get
        Set(ByVal value As String)
            uPassword = value
        End Set
    End Property

End Class
